package Views::Helpers::CSS;
#use warnings;
#use strict;

 
sub new {
	return bless {name=>'css', dir=> 'css/', files=> undef, style =>undef}, shift;
}

sub addFiles {	
	my $self=shift; 
	foreach (@_) {
		$$self{files} .= "<link media=\"all\" rel=\"stylesheet\" href=\"$self->{dir}$_\"/>";
	}
}

sub setStyle {
	my $self=shift; 
	my $style = shift;
	$$self{style} = "<style>$style</style>";
}

sub getStyle {
	my $self = shift;
	return $self->{style};
}

sub getName {
	my $self = shift;
	return $self->{name};
}

sub getFiles { 
	my $self = shift;
	return $self->{files};
}
 
1;